home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO064.dsk / ADD.HELP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  5KB  |  94 lines
  1. 10  PRINT  CHR$(4);"PREFIX"
  2. 15  INPUT PR$: GOSUB 3000
  3. 20  GOTO 500
  4. 100  VTAB 24: HTAB 1: GET Z$: IF Z$ =  CHR$(27)  THEN  POP : HOME : GOTO 505
  5. 106  IF J < >1  THEN  IF Z$ = "B"  OR Z$ = "b"  THEN J = J -1: POP : GOTO 710
  6. 107  IF Z$ = "B"  OR Z$ = "b"  THEN J = 30: POP : GOTO 710
  7. 120  RETURN 
  8. 200  HOME : HTAB 28: VTAB 1: PRINT "ESC TO QUIT": VTAB 24: HTAB 1: INVERSE : PRINT " (SPACE BAR) FORWARD";: HTAB 23: PRINT "(B) BACK";: NORMAL : HTAB 32: VTAB 24: PRINT "PAGE ";J;: RETURN 
  9. 300  VTAB 3: HTAB 1: FOR L = 1 TO LP(J): PRINT DA$(J,L): NEXT L: RETURN 
  10. 500  GOSUB 10000
  11. 505 VS = 0: GOSUB 6200: ON CV GOTO 705,600,920
  12. 520  GOTO 505
  13. 600 LN = 0
  14. 602  HOME : VTAB 1: HTAB 1: PRINT "ESC TO QUIT": VTAB 3: HTAB 1: PRINT "ANY OTHER KEY TO PRINT": VTAB 10: HTAB 5: PRINT "PLEASE GET YOUR PRINTER READY. ";: GET Z$: IF Z$ =  CHR$(27)  THEN  HOME : GOTO 505
  15. 605  PRINT  CHR$(4);"PR#1"
  16. 610  FOR J = 1 TO 30: PRINT : PRINT :LN = LN +2
  17. 612  FOR L = 1 TO LP(J)
  18. 614  IF LN < = 2  THEN  PRINT : PRINT :LN = LN +2
  19. 615  IF LN >60  THEN  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT :LN = 0: PRINT : PRINT :LN = LN +2
  20. 620  IF DA$(J,L) = ""  THEN  PRINT :LN = LN +1: IF LN < > INT(LN)  THEN LN = LN +.5: PRINT 
  21. 622  IF DA$(J,L) = ""  THEN  GOTO 630
  22. 623  IF LN < > INT(LN)  THEN  PRINT DA$(J,L):LN = LN +.5: GOTO 630
  23. 625  PRINT DA$(J,L);:LN = LN +.5
  24. 630  NEXT L
  25. 635  NEXT J
  26. 640  PRINT  CHR$(4);"PR#0": HOME : GOTO 505
  27. 705  FOR J = 1 TO 30
  28. 710  GOSUB 200: VTAB 3: GOSUB 300: GOSUB 100
  29. 724  IF J = 30  THEN  GOTO 705
  30. 740  NEXT J
  31. 900  GOTO 705
  32. 920  PRINT  CHR$(4);"PREFIX ";PR$
  33. 925  HOME 
  34. 930  PRINT  CHR$(4);"RUN ADD.START"
  35. 3000 VP$ = ""
  36. 3010  FOR J = 2 TO  LEN(PR$)
  37. 3020  IF  MID$ (PR$,J,1) = "/"  THEN  RETURN 
  38. 3030 VP$ = VP$ + MID$ (PR$,J,1)
  39. 3040  NEXT J
  40. 6000  GOTO 6200
  41. 6100  PRINT  CHR$(24): INVERSE :T = CV -VS: IF A >1  THEN  GOSUB 6160: RETURN 
  42. 6110  GOSUB 6170: RETURN 
  43. 6130  HTAB HT -3: VTAB CV: PRINT " ";:T = CV -VS: IF A >1  THEN  GOSUB 6160: RETURN 
  44. 6140  GOSUB 6170: RETURN 
  45. 6160  HTAB HT: VTAB VS +T: PRINT "(";T +1;")";" ";PM$(M,T +1);: NORMAL : CALL 64668: RETURN 
  46. 6170  HTAB HT: VTAB VS +T: PRINT "("; LEFT$(PM$(M,T +1),A);")";" ";PM$(M,T +1);: NORMAL : CALL 64668: RETURN 
  47. 6200  IF VS < >0  THEN  HTAB 1: VTAB 1: PRINT MS$(M): GOTO 6240
  48. 6220  HOME : PRINT MS$(M):VS =  INT(((18 -MN(M))/2) +6): VTAB VS -3: PRINT PM$(M,0)
  49. 6240 T = 0: FOR J = 1 TO MN(M): IF A >1  THEN  GOSUB 6160: GOTO 6290
  50. 6280  GOSUB 6170
  51. 6290 T = T +1: NEXT J
  52. 6320  IF G(M) >0  AND G(M) <25  THEN  VTAB G(M):CV = G(M): GOTO 6360
  53. 6350  VTAB VS:CV = VS
  54. 6360  GOSUB 6370: GOTO 6760
  55. 6370  HTAB HT -3:
  56. 6400  GOSUB 6100: WAIT  -16384,128:Z$ =  CHR$( PEEK( -16384) -128): POKE  -16368,0
  57. 6450  IF Z$ =  CHR$(27)  THEN CV = 27: RETURN 
  58. 6460  IF Z$ =  CHR$(13)  THEN  RETURN 
  59. 6480  IF Z$ =  CHR$(11)  THEN  GOSUB 6130:CV = CV -1: GOTO 6690
  60. 6490  IF Z$ =  CHR$(21)  THEN  GOSUB 6130:CV = CV -1: GOTO 6690
  61. 6500  IF Z$ =  CHR$(10)  THEN  GOSUB 6130:CV = CV +1: GOTO 6690
  62. 6510  IF Z$ =  CHR$(32)  THEN  GOSUB 6130:CV = CV +1: GOTO 6690
  63. 6520  IF Z$ =  CHR$(08)  THEN  GOSUB 6130:CV = CV +1: GOTO 6690
  64. 6540  GOSUB 6130:
  65. 6550 T = 0: FOR J = 1 TO MN(M): IF Z$ =  LEFT$(PM$(M,J),1)  THEN CV = VS +T: GOSUB 6100: FOR DQ = 1 TO 200: NEXT DQ: RETURN 
  66. 6580  IF Z$ =  CHR$( ASC( LEFT$(PM$(M,J),1)) +32)  THEN  GOTO 6600
  67. 6590  GOTO 6610
  68. 6600  IF  ASC(Z$) >96  AND  ASC(Z$) <123  THEN CV = VS +T: GOSUB 6100: FOR DQ = 1 TO 200: NEXT DQ: RETURN 
  69. 6610  IF A >1  AND  VAL(Z$) = J  THEN CV = VS +T: GOSUB 6100: FOR DQ = 1 TO 200: NEXT DQ: RETURN 
  70. 6620 T = T +1: NEXT J
  71. 6650 CV = VS: VTAB VS: HTAB HT -3: GOTO 6400
  72. 6690  IF CV >(VS +MN(M) -1)  THEN CV = VS
  73. 6700  IF CV <VS  THEN CV = (VS +MN(M) -1)
  74. 6720  VTAB CV: HTAB HT -3: GOTO 6400
  75. 6760  IF M <8  THEN G(M) = CV
  76. 6770  IF CV = 27  THEN  RETURN 
  77. 6780  GOSUB 6130:T = 0: FOR J = VS TO (VS +MN(M) -1):T = T +1: IF CV = J  THEN CV = T
  78. 6790  NEXT J: RETURN 
  79. 10000  DIM LP(35),DA$(35,25),MS$(10),PM$(10,10),MN(10)
  80. 10010  FOR J = 1 TO 30
  81. 10040  READ LP(J): NEXT J
  82. 10090  DATA         20,20,14,13,11,20,20,9,17,18,19,17,20,19,11,20,19,19,18,9,17,10,15,15,14,12,12,20,19,11
  83. 10100  HOME 
  84. 10110  PRINT  CHR$(4);"OPEN SETUP/HELP.TXT"
  85. 10120  PRINT  CHR$(4);"READ  SETUP/HELP.TXT"
  86. 10130  FOR J = 1 TO 30
  87. 10150  FOR L = 1 TO LP(J)
  88. 10160  CALL 39169,DA$(J,L)
  89. 10170  NEXT L: NEXT J
  90. 10180  PRINT  CHR$(4);"CLOSE SETUP/HELP.TXT"
  91. 10200 MN(1) = 3:A = 1:HT = 10:M = 1:MS$(1) = "INFORMATION BOOTH"
  92. 10230  FOR J = 0 TO 3: READ PM$(1,J): NEXT J
  93. 10300  RETURN 
  94. 10400  DATA   "PLEASE SELECT","READ DOCUMENTATION","PRINT DOCUMENTATION","BACK TO MAIN MENU"